1 IFPEEK(787)<>1THENSYS57812"FNT",8,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
2 POKE787,1:IFCH=1THENPOKE53272,31:GOTO27
3 POKE53272,31:POKE53281,0:POKE53280,0:PRINT"[147][158]":POKE55,0:POKE56,56:CLR
4 F1$="[204][207][193][196][211][212][193] [210]":F2$="[208] [210] [197] [211] [197] [206] [212] [211]":F3$="[194][217]":F4$="[202][197][198][198][210][197][217] [204]. [202][207][206][197][211]"
5 S=54272:FORI=0TO24:POKES+L,0:NEXT
6 POKES+1,100:POKES+5,9:POKES+24,15
7 C(1)=15:C(2)=12:C(3)=11:F$="   [198][160][207][160][206][160][212][160][160][160][195][160][200][160][193][160][206][160][199][160][197] [210]":MU=1
8 C(7)=11:C(6)=12:C(5)=15:C(4)=12:FORI=1TO3:READFO$(I):FO$(I)=FO$(I)+" [198][207][206][212]"
9 NEXT:READFO$(4),FO$(5),FO$(6):I=0
10 GOTO24
11 POKE646,6:PRINT""SPC(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
12 FORC=1TO5:PRINTSPC(5)"[221]                             [221]":NEXT
13 PRINTSPC(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB14:RETURN
14 POKE198,0:POKE214,8:PRINT:PRINT:FORC=1TO10:POKE646,14:IFMU=CTHENPOKE646,7
15 PRINTTAB(20-LEN(FO$(C))/2)FO$(C):NEXT:MU=9:C=6:MU=1
16 POKE214,18:PRINT:PRINT"   [158] [213][211][197] [195][213][210][211][207][210]/[210][197][212][213][210][206] [212][207][160][211][197][204][197][195][212] [198][207][206][212] "
17 PRINT"   [155]ABCDEFGHIJKLMNOPQRSTUVWXYZ   12345"
18 PRINT"   [193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]   67890[145]":RETURN
19 POKE646,C(I+2):PRINT""SPC(13)F1$
20 POKE646,C(I+1):PRINTSPC(13)F2$
21 POKE646,C(I):PRINTSPC(6)F$
22 POKE646,C(I+1):PRINTSPC(19)F3$
23 POKE646,C(I+2):PRINTSPC(12)F4$:RETURN
24 GOSUB11:GOTO27
25 I=I+1:IFI=5THENI=1
26 GOSUB19:RETURN
27 GETA$:GOSUB44:GOSUB25:IFA$=""THEN27
28 UM=MU:IFA$="[145]"THENMU=MU-1:IFMU<1THENMU=6
29 IFA$=""THENMU=MU+1:IFMU>6THENMU=1
30 IFA$=CHR$(13)THEN46
31 POKE214,8+UM:PRINT:PRINTTAB(20-LEN(FO$(UM))/2)"[154]"FO$(UM)
32 POKE214,8+MU:PRINT:PRINTTAB(20-LEN(FO$(MU))/2)"[158]"FO$(MU):GOTO27
33 I=1:GOSUB19
34 IFA$="Q"THEN36
35 CH=1:LOADFI$,8,1
36 FORI=62464TO62564:POKEI,0:NEXT
37 POKE787,0:OPEN15,8,15,"R0:LOADSTAR BRIEFS=LOADSTAR BRIEFS":INPUT#15,ER
38 CLOSE15:U=1
39 IFER<>63THENGOSUB89:GOTO37
40 POKE53272,21
41 A$="LOADSTAR BRIEFS":Q$=CHR$(34):POKE53281,0:POKE53280,0:PRINT"[147]"
42 PRINT"[144]LOAD"Q$A$Q$",8"
43 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
44 C=C+1:IFC>7THENC=1
45 POKE646,C(C):POKE214,8+MU:PRINT:PRINTTAB(20-LEN(FO$(MU))/2)FO$(MU):RETURN
46 IFMU>3THEN51
47 GOSUB57:CH=1:LOADAA$+" FONT",8,1
48 DATA"[195]-128"
49 DATA"[195]-64","[204][207][193][196][211][212][193][210]","[213][211][197][160][217][207][213][210][160][207][215][206][160][198][207][206][212]","[201][206][211][212][193][204][204][160][217][207][213][210] [206][197][215][160][198][207][206][212]"
50 DATA"[210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210] [194][210][201][197][198][211]"
51 ONMU-3GOTO62,52,36
52 FORU=1TO4:GOSUB89
53 IFA$="Q"THENRUN
54 FA$="FNT":CLOSE15:OPEN15,8,15,"S0:FNT":CLOSE15
55 GOSUB83
56 POKES+4,37:FORT=0TO500:NEXT:POKES+4,36:NEXT:RUN
57 AA$="":FORI=1TOLEN(FO$(MU))-5
58 A2$=MID$(FO$(MU),I,1)
59 IFA2$<"[193]"ORA2$>"[218]"THENAA$=AA$+A2$:NEXT:GOTO61
60 AA$=AA$+CHR$(ASC(A2$)-128):NEXT
61 I=0:RETURN
62 POKE214,18:PRINT:FORI=1TO5:PRINT"                                      "
63 NEXT:PRINT"":POKE214,19:PRINT:PRINT"[158][197]NTER NAME OF FONT: ";
64 POKE53272,23:LI=16:GOSUB72:POKE53272,31:PRINT:IFW$=""THENRUN
65 POKE214,19:PRINT:PRINT"          [159][201]NSERT DISK/[159]HIT[158] [210][197][212][213][210][206]  "
66 GETA$:IFA$<>CHR$(13)THEN66
67 OPEN15,8,15,"I0:":OPEN2,8,2,W$+",P,R":INPUT#15,E$,E$:IFE$<>"OK"THEN71
68 GET#2,A$,A$:FORI=14336TO15072STEP4:GET#2,A$,A1$,A2$,A3$
69 POKEI,ASC(A$+CHR$(0)):POKEI+1,ASC(A1$+CHR$(0))
70 POKEI+2,ASC(A2$+CHR$(0)):POKEI+3,ASC(A3$+CHR$(0)):NEXT:CLOSE2:RUN
71 PRINT"[147]"E$:PRINT"PRESS A KEY...":POKE198,0:WAIT198,1:RUN
72 W$="":PRINT">[146][157]";:IFLIMIT=0THENLIMIT=80
73 GETA$:IFA$="[145]"ORA$=""ORA$="[157]"ORA$=""ORA$=""ORA$="[147]"ORA$=""THEN73
74 AS=ASC(A$):IFAS=13ORAS=141ORAS=20THEN79
75 IFPEEK(653)=2ORPEEK(653)=4THEN73
76 IFLEN(W$)=LIMITTHENIFAS<>20ANDAS<>13ANDAS<>141THEN73
77 IFAS=34OR(AS>=133ANDAS<=140)OR(AS>=1ANDAS<=31)THEN73
78 W$=W$+A$:PRINTA$">[146][157]";:GOTO73
79 IFAS=20ANDW$<>""THENW$=LEFT$(W$,LEN(W$)-1):PRINT"[157]<[146] [157][157]";:GOTO73
80 IFAS=20ANDW$=""THEN73
81 IFAS=13THENPRINT" ":LIMIT=0:RETURN
82 SYS57812FA$,8:POKE193,00:POKE194,56:POKE174,00:POKE175,64:SYS62954
83 POKE780,2:POKE781,8:POKE782,2:SYS65466
84 POKE824,70:POKE825,78:POKE826,84
85 POKE780,3:POKE781,56:POKE782,3:SYS65469
86 POKE251,0:POKE252,56
87 POKE780,251:POKE781,0:POKE782,64:SYS65496
88 RETURN
89 POKE214,20:PRINT:FORZ=1TO3:PRINT"                                      ";
90 NEXT:PRINT"":FA$="FNT"
91 POKE214,20:PRINT:PRINTTAB(8)"[155][201][206][211][197][210][212] [211][201][196][197]"U"OF [204][207][193][196][211][212][193][210]"
92 PRINTTAB(6)"[193][206][196][160][208][210][197][211][211][160][210][197][212][213][210][206][155]/ [158][209][155] [212][207][160][193][194][207][210][212]"
93 GETA$:IFA$<>"Q"ANDA$<>CHR$(13)THEN93
94 RETURN
95 OPEN15,8,15,"S0:FONT CHANGER":CLOSE15:SAVE"FONT CHANGER",8:END